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^Provide  a  convenient  listing  of  lowest  level  Lisp  functions  accessing  and  changing  state  in  the  SEI. 

3) Provide  a  more  precise  definition  of  the  capabilities  of  the  different  layers  of  the  SEI.  Currently 
die  functions  provided  via  franzsell  (for  example)  represent  a  mix  of  simple  data  copying 
operations  (for  example,  passing  the  list  of  world  objects  on  up  to  the  organism)  as  well  as  more 
intelligent  operations  (the  multi-step  implementation  of  *tum"  for  example).  LispSEl  will 
provide  only  die  simple  data  passing  and  control  operations  defined  below,  with  the  more 
complex  operations  being  defined  elsewhere  in  the  SEI. 


4)  Separate  out  filtering  operations  from  the  basic  copying  of  the  world  state.  The 
filtering/massaging  will  be  taking  place  in  a  number  of  library  modules  discussed  elsewhere. 


3)  Clean  up  some  other  unnecessary  hair  present  in  the  current  SEI  implementation. 
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LispSEl  is  only  meant  to  provide  a  minimal  set  of  operations  an  organism  could  request  It  is  entirely  possible 
that  additional  functionality  could  be  added  to  the  LispSEl  later.  N.B.:  Currently  it  is  not  expected  that 
Lisp-based  organisms  will  be  referencing  LispSEl  direedy;  rather,  they  will  interact  through  the  SEI  library 
functions  described  in  a  separate  document 


The  organism  interacts  with  the  SEI  in  exactly  three  ways: 

1.  The  organism  receives  state  information  from  the  SEI  (objects  in  the  world,  emissions,  and  other 
miscellaneous  information  specific  to  the  current  SEI.) 


2.  The  organism  sends  state-change  requests  to  die  SEI  (emissions,  motions  of  the  organism, 
operations  of  the  organism’s  pans,  etc.)  Note  that  this  may  be  a  superset  of  effector  requests. 

3.  The  organism  sends  control  commands  to  the  SEI  (get  world  changes,  send  "ok  to  proceed,”  and 

soon). 

Currently  EFFBCT.C  implements  (Unctions  of  the  second  sort,  while  perceive C  implements  functions  of  die 
first  and  third  son. 


Changes 

1.  PERCEIVE c  will  be  split  into  two  files,  PERCEIVEC  and  SEIOONTROLC,  with  the  latter 
implementing  control  commands  from  the  organ isn  to  the  SEI. 


2.  The  SEI  will  be  written  entirely  in  C  and  Lisp.  LispSEl  will  be  able  to  run  under  either  Franz  or 
Lucid  Common  Lisp  (using  the  same  source.) 


3.  The  batch  of  functions  defined  in  file  LISPSHI  (which  implements  LispSEI)  will  call  functions  in 
PERCE! VEC.  SE1CON  fROl-.C,  and  l-rn:CTC.  The  higher-level  processing  portions  of  the  SRI  (to  be 
described  in  a  future  document)  will  call  exclusively  functions  in  uspsei.C. 


4.  RKliNK.C,  SE1UNK.SL1SP,  and  SEIFACESL1SP  will  all  disappear.  [We  no  longer  write  Spice  Lisp 
organisms.] 

5.  Certain  actions  of  perceive.C  (viz.  automatically  copying  the  whole  world  of  objects  from  C  into 
Lisp)  may  no  longer  automatically  be  done  (at  die  implementor’s  discretion). 

6.  The  following  will  be  the  typical  cycle  for  calls  into  LispSEI.  The  order  is  not  too  critical;  in 
particular,  steps  b  through  e  may  occur  in  any  order. 

a.  (Receive-Updated-World). 

b.  Request  descriptions  of  objects  by  objNumber,  one  at  a  time.  (The  objNumber  is  a  unique 
integer  identifying  that  object  within  the  world.)  Alternately,  individual  fields  of  objects 
may  be  referenced. 

c.  Request  information  from  other  senses,  such  as  a  list  of  things  smelled,  or  a  list  of  audible 
emissions,  and  so  on. 

d.  Request  some  effector  actions,  such  as  changing  the  object's  motion  vector,  or  emitting  a 
sound,  or  swinging  an  arm  around. 

e.  Make  other  (illegal)  changes  to  world  objects.  (Intuitively,  illegal  changes  are  those  which  a 
typical  organism  in  a  world  could  not  easily  carry  out,  such  as  changing  the  velocity  of 
arbitrary  objects  at  a  distance.) 

f.  (Ok-To- Proceed)  to  end  a  cycle. 

The  LispSEI  thus  provides  essentially  unlimited  access  to  the  world  data  structure  and  other  state 
information. 


Newly  Defined  Data  Types  and  Their  Accessing  Functions 

These  are  new  to  die  LispSEI  implementation.  They  are  meant  primarily  to  aid  in  die  passing  of  data  in  a 
reasonably  efficient  way.  The  data  types  are  just  unguaranteed  hints  as  to  how  these  data  packets  might  be 
implemented  in  LispSEI.  The  user  of  LispSEI  should  only  access  these  objects  via  the  accessing  Junctions 
described  next  to  each  data  type.  Remember  that  the  Set-ing  functions  operate  only  on  the  data  object,  and  do 
not  affect  the  actual  objects,  emiKions,  etc.  in  the  world. 

•  (satq  ex  tuple -Matrix-Type  (make-array  4  4 

:element-type  ’Integer 
: Initial-element  0)) 

(This  is  not  strictly  a  data  type,  rather  a  template  for  one.) 

(Get-Matrix-Type- Elements*  As- List  Matrix-Type)  returns  the  elements  of  a  Matrix- 
Type  object  as  a  list  in  the  order  (Matrix-Type[0,0J  Matrix-Typc[0,l]  Matrix- 
Type|0,2]  _  MatrixType[3,3]). 


(Gct-Matrix-T ypc- Elements- As- Array  MairiX'Type)  returns  a  Lisp  array. 


•  (decl are-type  Vector-Type  ' 

(X  0.0  :type  double) 

(Y  0.0  :type  double) 

(Z  0.0  :type  double)) 

(Gct-VectorType*X  Vector  Type)  returns  a  double. 

(Sct-Vcctor-Typc-X  value  Vector-Type)  sets  the  A' component 
of  Vector  Type  to  be  value. 

(Get-Vector-Type-Y  VectorType)  docs  the  obvious  thing. 

(Set- Vector-Type- Y  value  VectorType)  docs  the  obvious  thing. 
(Get-VectorType-Z  VectorType)  does  the  obvious  thing. 

(Set- Vector-Type- Z  value  VectorType)  docs  the  obvious  thing 

•  (declare-type  Vertex-Type 

(X  0.0  :type  double) 

(Y  0.0  :type  double) 

(Z  0.0  :type  double)) 

(Get-Vertex-Type-X  Vertex-Type)  docs  the  obvious  thing. 

(Gct-Vcrtex-Typc-Y  Vertex-Type)  does  the  obvious  thing. 

(Get-Veitex-Type-Z  Vertex-Type)  does  the  obvious  thing 
Sct-ing  functions  are  as  for  VectorType. 

•  (declare-type  Apply-Type 

Force  ;Vector-Type 

(Force-Time  .0.0  :type  double) 

Torque  ;Vector-Type 

(Torque-Time  0.0  :type  double) 

(Magnetic-Force  0.0  :type  double) 

(Magnetic-Time  0.0  :type  double)) 

(Get-Apply-Type-Force  Apply-Type)  returns  a  Vector-Type,  which  can  be  further 
accessed  via  die  accessors  defined  above. 

(Gct-Apply-Type-Force-Time  Apply-Type)  does  the  obvious  thing. 
(Get-Apply-Type-Torque  Apply-Type)  does  the  obvious  thing. 

(Get- Apply  Type-Torque-Time  Apply-Type)  does  the  obvious  thing. 
(Get-ApplyT ype-Magnetic- Force  Apply-Type)  does  die  obvious  thing. 

(Get- Apply  Type-Magnetic- Time  Apply-Type)  does  the  obvious  thing. 

Set-ing  hi  actions  are  as  for  VectorType. 

•  (declare-type  Color  Type 

(Red-Component  0  :type  Integer) 

(Green-Component  0  rtype  Integer) 

(Blue-Component  0  :type  Integer)) 

Acceaors  similar  to  those  for  Apply-Type.  Set-ing  functions  are  as  for  VectorType. 
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•  (declare-type  Taste-Type 

(Sweet  0  :type  Integer) 

(Sour  0  .type  integer) 

(Bitter  0  :type  integer) 

(Salty  0  :type  integer)) 

Accessors  similar  to  those  for  Apply-Type.  Sct-ing  functions  are  as  for  Vector-Type. 


(declare-type  Object-Type 

(Object-Number  0  :type  integer) 
(Object-Name  ""  :type  string) 
(Previous-Object  0  :type  integer) 
(Next-Object  0  :type  integer) 
(Part-Of  0  :type  integer) 
(Part-Collision  0  .-type  integer) 
(Part-Magnetism  0  :type  integer) 
Transform  ; 

(Scale-Factor  0.0  :type  double) 
Location  ; 

Rotation  ; 

Velocity  ; 

Rotational-Velocity  ; 

Acceleration  ; 

Rotational -Acceleration 
Forces  ; 

(Buoyancy  0.0  :type  double) 
Mass-Center  '  ; 

(Mass  0.0  :type  double) 

(Enclosure  0.0  :type  double) 
(K1nd-0f-0bject  0  :type  integer) 


;Matr1x-Type 

;  Vector-Type 
;Vector-Type 
;Vector-Type 
;Vector-Type 
;Vector-Type 
-.Vector-Type 
;Apply-Type 

;Vector-Type 


(Composed-Of  0  -.type  Integer)  ;for  Complex 

(Changed-Below  0  :type  Integer) 

(Elasticity  0.0  :type  double)  ;for  Prim 

(Restitution  0.0  :type  double) 

(Friction  0.0  :type  double) 

Inside-Color  ,-Color-Type 

Outside-Color  ;Color-Type 

(Outside-Surface-Texture  0  :type  Integer) 
(Inside-Surface-Texture  0  -.type  Integer) 

Taste  .-Taste-Type 

(Temperature  0.0  :type  double) 

Axis  ;Vector-Type;  for  Cylinder 

(Height  0.0  :type  double) 

(Radius  0.0  :type  double) 


;for  Prim 


,-Color-Type 

;Color-Type 


Normal  ; Vector-Type;  for  Polygon 

Vertices)  ;  !!  note;  a  list  of 

;  Vertex-Types  I! 

Accessors  similar  to  those  for  ApplyType,  except: 

(Get-Object- Type- Vertices  Object-Type)  return  a  list  of  Vertex-Types. 

Also,  we  have  the  function 

(Get-Object  Slot  slot  objNumbet)  returns  the  value  of  the  s/or 
for  the  indicated  objNumber.  Slot  names  for  this  function  are  formed  by 
prependiu|  a  colon  to  the  name  of  the  associated  accessor  fraction  for 
Object-Type  without  the  "Get-”  prefix.  Thus,  (Get-Object-Slot 
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‘:Objcct- Type-Next-Object  7)  returns  the  same  thing  as 
(Get-Objcct-Type-Next-Object  (Object  7))  returns. 

Set-ing  functions  arc  as  for  Vector-Type. 

•  (declare-type  Emission-Type 
(Emisslon-ID  0  :type  Integer) 

(Next  0  :type  Integer) 

(Previous  0  :type  Integer) 

(Emission-Type  0  :type  Integer) 

Origin  ;Vector-Type 

(Time  0.0  :type  double) 

(Intensity  0  rtype  Integer) 

(Spread  0.0  :type  double) 

(Diffusion  0.0  :type  double) 

(Decay  0.0  :type  double) 

(Duration  0.0  rtype  double) 

(Rep  0  rtype  Integer) 

(Bytes  0  rtype  Integer) 

Desc  ;a  vector  of  size  Bytes 

Accessors  similar  to  those  for  Apply-Type,  except: 

(Get-Emission-Type-Dcsc-As-List  Emission-Type)  returns  the  vector  as  a  list 
(Gct-Emission-Type-Desc-As-Array  Emission-Type)  returns  the  vector  as  a  Lisp  array. 
Set-ing  functions  are  as  for  Vector-Type. 

•  (declare-type  Contact-Type 
(Objectl  0  rtype  Integer ); these  4  are  ObJNumbers 
(Objectl-part  0  rtype  Integer) 

(0bject2  0  rtype  Integer) 

(0bject2-part  0  rtype  integer) 

Point  ;  Vector-Type 

Force  ;  Vector-Type 

Magnetism-Flag)  ;  boolean 

Accessors  similar  to  those  for  Apply-Type.  Set-ing  functions  are  as  for  VectorType. 

A  List  of  Functions 

This  is  a  list  of  the  functions  provided  in  Lisp  by  LISPSE1. 

Receiving  State  Information 

•  (Object-Head)  returns  the  objNumber  of  the  head  object  for  the  world. 

•  (Organism-Number)  returns  the  objNumber  of  the  organism. 

•  (Object  objNumber)  returns  an  Object-Type  corresponding  to  the  world  object  identified  as 
objNumber. 

•  (Emission-Head)  returns  the  emitNumber  of  the  head  emission  for  the  world. 

•  (Emission  emitNumber)  returns  an  Emission-Type  corresponding  to  the  world  emission  identified 
as  emitNumber. 


.V. 


6 


•  (Contacts)  returns  a  list  of  all  Contact-Types  for  the  world. 

•  (Gravity)  returns  a  Vector-Type  specifying  the  gravity  vector. 

•  (Time-Step)  returns  the  number  of  seconds  in  a  cycle. 

•  (World-Tune)  returns  the  current  world  time. 

•  (World-Steps)  returns  the  number  of  world  steps  in  a  cycle.  Typically  this  is  used  only  by  the 
World  Master. 

•  (Directional-Light- Vector)  returns  a  Vector-Type  specifying  the  directional  light  vector. 

•  (Directional- Light-Color)  returns  a  Color-Type  specifying  the  directional  light  color. 

•  (Ambient- Light-Color)  returns  a  Color-Type  specifying  the  ambient  light  color. 

•  (Ambient-Temperature)  returns  the  ambient  temperature. 

•  (Viscosity)  returns  the  viscosity. 

•  (World-Name)  returns  a  string  naming  the  world. 

•  (Trace-Name)  returns  a  string  naming  the  trace  of  the  world. 

•  (Path-Name)  returns  a  string  naming  the  directory  into  which  SEI  files  will  be  written. 

•  (Organism-Name)  returns  a  string  naming  the  organism. 

•  (Cycle-Number)  returns  the  number  of  cycles  since  the  SEI  started. 

Sending  State  Change  Requests 

•  (Effect-Object-Velocity  xyz  objNumber )  changes  die  velocity  of  the  specified  object 

•  (Eflcct-Object- Acceleration  xyz  objNumber)  changes  the  acceleration  of  the  specified  object 

•  (Effect-Object-Rotational- Velocity  xyz  objNumber )  changes  die  rotational  velocity  of  the 
specified  object 

•  (Effect-Object-Rotational-  Acceleration  xyz  objNumber)  changes  the  rotational  acceleration  of 
the  specified  object 

•  (Effect -Object-Torque  xyz  duration  objNumber)  applies  a  Torque  for  the  specified  duration  to 
the  specified  object 

•  (Effect-Object-Force  xyz  duration  objNumber)  applies  a  force  for  the  specified  duration  to  the 
specified  object 

•  (Effect-Object-Magnetism  limb  force  duration)  applies  a  specified  magnetic  force  to  the  specified 
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limb  for  the  specified  duration. 

•  (EfTcct-Objcct-Location  xyz  ObjNumber)  changes  the  location  of  the  specified  object 

•  (Efiect-Object-Rotation  xyz  ObjNumber)  changes  the  rotation  of  the  specified  object 

•  (Delete-Object  objNumber)  removes  an  object  from  the  world. 

•  (Create- Emission  Emission-Type  Origin  Intensity  Spread  Diffusion  Decay  Duration  Rep  Bytes 
Desc)  requests  the  addition  of  an  emission  to  the  world.  The  types  of  the  arguments  are  given  by 
the  description  of  the  Emission-Type  declare-type  above.  The  Origin  should  be  given  as  a  list  of 
three  doubles.  The  Desc  should  be  given  as  a  list  The  fields  of  an  emission  which  are  not 
specified  are  Emission- ID,  Next,  Previous,  and  Time.  LispSEi  will  select  an  appropriate  Emission- 
ID  and  insert  the  current  world  time. 

The  following  functions  currently  in  effect.c  either  are  complex  (they  involve  some  processing  to 
implement  beyond  simple  data  copying)  or  they  are  stubs  representing  future  capabilities  of  the  SEI.  They 
will  be  removed  and  will  at  some  later  time  be  implemented  in  Lisp  or  properly  implemented  in  C:  lightcycie, 
tempeyde,  stop,  move,  turn,  rkeat,  emitodor,  emitsound,  eat  pickup,  contact  near,  drop,  holding,  nibble 

Control  Commands 

•  (Set-Debug  flag)  sets  the  Debug  flag  to  the  specified  value,  either  0  or  1. 

•  (Set-linkDebug/7og)  sets  the  linkDcbug  flag  to  the  specified  value,  either  0  or  1. 

•  (Start-SEI  ^optional  ( debugfile  "seilog")  ( started  1))  calls  the  COMMUN.C  function  StartSei. 
debugfile  is  a  string;  started  is  an  integer,  started  should  be  0  if  the  SEI  is  started  manually  and 
then  added  to  the  world  via  a  UI  AttachSEI  command;  1  otherwise.  At  the  current  time,  an  SEI  is 
only  Start-ed  at  the  end  of  a  master  cycle,  so  nothing  will  appear  to  happen  until  all  other  ports  in 
the  world  send  Ok’s  to  the  master,  at  which  time  the  entire  world  will  be  sent  to  the  SEI. 
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•  (Enter- World  woridNlme  organismName  ^optional  ( debugfile  "seilog"))  allows  an  SEI  to  join  a 
world  without  requiring  the  oversight  of  a  UI.  All  three  arguments  are  strings.  wrldName  should 
be  the  name  of  the  world  to  join.  organismName  is  the  name  to  be  associated  with  the  SEI  process 
(i.e„  the  mind  as  opposed  to  the  body).  This  does  not  associate  the  organism  with  any  object  in 
die  world.  This  may  be  done  later  via  a  Set-Organism-Body  call.  See  the  note  for  Start-SEI 
above  regarding  interaction  with  other  ports  in  the  world. 

•  (Set-Organisa-Body  objNumber)  sets  the  organism  body  to  be  the  object  numbered  objNumber, 
an  integer. 

•  (Save-State)  dumps  die  current  Lisp  process  (organism + SEI)  into  the  file  specified  in  CKPfile  in 
die  directory  specified  by  (Path-Name). 

•  (Ok-To-Proceed)  flushes  die  effector  queue  to  the  Master  and  sends  an  "OkToProceed"  message. 


•  (Receive-Upda  ted- World)  waits  for  the  master  to  send  the  updated  wortd;  it  then  absorbs  the 

changes. 
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—  Thl*  Is  Common  Lisp  —  ::; 

World  Modeler  Sel  Library-Definition  package. 
Started  20-Oct-86  PHS. 

See  /ml /usr/pshel 1/worldm/sel/selprop .  press  or 
Uses  1  ispsel . 1 Isp.  the  base-level  lisp  SEI. 


.mss  for  complete  details. 


see 

e  e  • 
•  •  • 
•  •  • 

e  •  • 
•  •  • 
•  •  e 


This  provides  macros  for  defining  sensors  and  filters. 

The  top-level  functions  In  this  module  are: 

(def-sensor  <sensor-name>  <sense-type>  <object>  <ent1ty-f 11ters> 
<f 1eld-mungers>) 

(sense  ‘ <sensor-natne>) 

(def-fllter  <name>  <params>  <sense-type>  .  <body>) 

(def-f ield-munger  <name>  <params>  <sense-type>  <f 1  el d>  .  <body>) 

((♦•'-constraint  <name>  <params>  <sense-type>  <funct1on>) 

(reel) 

(Listen) 

(Taste) 

(Smell) 

(See) 


(defvar  -TRACE-SENSE*  NIL) 


;;Equ1valent  to  the  defines  In  world. h 


(defvar  "SOUND-TYPE*  0) 

(defvar  • SMELL-TYPE*  1) 

(defvar  -MAX-OBJECTS*  64) 

(defvar  • GOT -OBJECT- ARRAY*  (make-array  -MAX-OBJECTS*  :e1ement-type  '(mod  2))) 
;;;  Bit  N  In  the  bit  *GOT-OBJECT -ARRAY*  Is  on  Iff  object  N  has  been  retrieved 
from  C  In  the  current  cycle. 

(defvar  *GOT -OBJECT-ARRAY-CYCLE*  0.0) 

Equal  to  the  cycle  that  *G0T-0BJECT-ARRAY*  was  gotten  on. 

(defvar  -OBJECT- ARRAY*  (make-array  ’MAX-OBJECTS*)) 

(defvar  ‘SENSES*  ’(vision  hearing  smell  taste  touch)) 

(defvar  -ENTITIES*  '(object  sound  smell  taste  contact)) 

;;;  Wanked  from  LIspSEI.l: 

(defvar  PRIMITIVE  0) 

(defvar  COMPLEXOBJ  1) 

(defvar  POLYGON  2) 

(defvar  CYLINDER  3) 

(defvar  CIRCLE  4) 

(defvar  SPHERE  S) 

(defvar  NOOBJECT  6) 


Like  concat  but  expands  what  It  can  at  expansion  time  and  othi 
•  symbol-name  call  to  function  calls. 

(defmacro  smash  (treat  seqs) 

\140( Intern  (concatenate  ’string  ,8(prepare-seqs  seqs)))) 

(eval-when  (load  compile  eval) 

(defun  prepare-seqs  (seqs) 

(mapcar  f'prepare-seq  seqs)). 

(defun  prepare-seq  (seq) 

(cond  ((numberp  seq)  (prlnc-to-str Ing  seq)) 

((llstp  seq)  \140(pr1nc-to-str1ng  .seq)) 

((not  (strlngp  seq))  \140(smart-symbo1-name  .seq)) 

(t  seq))) 

(defun  smart-symbol-name  (thing) 

(cond  ((or  (numberp  thing)  (llstp  thing)) 


sps 
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(prlnc-to-strlng  thing)) 

((not  (strlngp  thing))  (symbol-name  thing)) 
(t  thing)))) 

(defmacro  putprop  (obj  val  prop) 

\140(setf  (get  .obj  .prop)  .val)) 


(defmacro  Object-Object-Number  (Object) 

\140( Object-Type-Object-Number  .Object)) 

(defmacro  Object-Name  (Object) 

\140(0b ject -Type -Ob Ject -Name  .Object)) 

(defmacro  Ob jeci-Prev ious-Ob ject  (Object) 

\140( Object-Type-Previous -Ob Ject  .Object) ) 
(defmacro  Object-Next-Object  (Object) 

\140(Ob ject- Type-Next-Ob ject  .Object)) 

(defmacro  Ob ject-Part-Of  (Object) 

\140(0b ject-Type-Part-Of  .Object)) 

(defmacro  Object-Part-Collision  (Object) 

\140( Ob Ject- Type -Part -Col  1  Is  Ion  .Object)) 

(defmacro  Object-Part-Magnetism  (Object) 

\ 140 (Ob ject- Type -Part -Magnet Ism  .Object)) 

(defmacro  Object-Transform  (Object) 

\1 40 (Ob ject- Type -Transform  .Object)) 

(defmacro  Object-Scale-Factor  (Object) 

\140( Ob Ject- Type-Scale- Factor  .Object) ) 

(defmacro  Object-Location  (Object) 

\140( Object-Type-Location  .Object)) 

(defmacro  Object-Rotation  (Object) 

\140( Ob Ject- Type-Rotation  .Object)) 

(defmacro  Object-Velocity  (Object) 

\140( Object-Type-Velocity  .Object)) 

(defmacro  Ob ject-Rotatlonal-VelocIty  (Object) 

\140( Object-Type-Rotational -Velocity  .Object) ) 
(defmacro  Object-Acceleration  (Object) 

\140( Object-Type- Acceleration  .Object)) 

(defmacro  Object-Rotatlonal-Acceleratlon  (Object) 

\ 140 (Object- Type-Rotational -Acceleration  .Object) ) 
(defmacro  Object-Forces  (Object) 

\ 140 (Ob ject -Type- Forces  .Object) ) 

(defmacro  Object-Buoyancy  (Object) 

\140( Ob ject- Type-Buoyancy  .Object)) 

(defmacro  Ob Ject-Mass-Center  (Object) 

\140(Objoct- Type-Mass -Can ter  .Object)) 

(defmacro  Object-Mass  (Object) 

\140(Object-Type-Mass  .Object)) 

(defmacro  Object-Enclosure  (Object) 

\140(Ob Ject -Type-Enclosure  .Object)) 

(defmacro  Object-KInd-Of-Object  (Object) 

\140(ObJect-Type-K1nd-Of-Object  .Object)) 

(defmacro  Ob ject-Composed-Of  (Object) 

\140(0bJect-Type-Composed-0f  .Object)) 

(defmacro  Object-Elasticity  (Object) 

\140(Object-Type-Elast1c1ty  .Object) ) 

(defmacro  Object-Restitution  (Object) 

\140( Object-Type-Restitution  .Object) ) 

(defmacro  Object-Friction  (Object) 

\140( Object-Type- Friction  .Object) ) 

(defmacro  Ob ject-InsIde-Color  (Object) 

V140( Ob Ject- Type- Inside-Col  or  .Object)) 

(defmacro  Object-Outside-Color  (Object) 

\ 140(06 Ject- Type-Outside-Col or  .Object)) 

(defmacro  Object-Outside-Surface-Texture  (Object) 

\140(0b ject- Type-Outside-Surf ace- Texture  .Object)) 
(defmacro  Object-Inslde-Surface-Texturt  (Object) 

\140(0b ject- type -ins ide-Sur face- lexture  .Object) ) 
(defmacro  Object-Taste  (Object) 

\140(Ob Ject-Type-Taste  .Object)) 
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;;;  Only  see  things  which  are  less  than  max-distance  meters  away  from 
your  eye. 

(def-constralnt  object-distance-constraint  (max-distance)  vision 
(<  (vector-distance  (abs-object-locatlon  entity) 

(abs-object-locatlon  sensorobj)) 

max-distance)) 

;;;  Only  sense  the  smells  that  are  near  your  "nose"  (l.e.,  closer  than 
max-distance  meters  away). 

(def-constralnt  smell-distance-constraint  (max-distance)  smell 
(<  (vector-distance  (emission-origin  entity) 

(abs-object-locatlon  sensorobj)) 

max-distance)) 


;;;  Only  sees  objects  which  are  bigger  than  object-enclosure  meters, 
(def-constralnt  ob ject-slze-constralnt  (object-enclosure)  vision 
(>  (object-enclosure  entity) 
object-enclosure)) 

;;;  Only  smells  smells  which  are  stronger  than  smell-threshold, 
(def-constralnt  smell-intensity-constraint  (smel 1-threshold)  smell 
(>  (emission-intensity  entity) 
smell-threshold)) 

Only  taste  those  tastes  which  are  In  contact  with  the  sensor, 
(def-constralnt  only-taste-touching  ()  taste 
(member-if  0' (lambda  (contact) 

(eq  entity  (object-taste  (contact-objectl-part  contact)))) 
(contacts-of  sensorobj))) 

;;;  Only  feel  those  contacts  which  are  touching  the  sensor.  This  Is 

needed  because  contacts  are  just  a  list  of  all  the  contacts  In  the  world, 
(def-constralnt  only-my-contacts  ()  touch 

(or  (eq  (contact-objectl-part  entity)  sensorobj) 

(eq  (contact-object2-part  entity)  sensorobj))) 

(def-sensor  sample-vision  vision  "organism" 

((cone-of-vlslon  (cos  (/  pi  6)))  dlsal low-heads)  ()) 


Sample  Effector  Commands 


Moves  the  organism  forward  (l.e..  In  the  current  direction)  for  one 
time  unit  with  the  given  force  (scalar,  in  Newtons). 

(defun  move-forward  (force  objnum) 

(let  ((objdlr  (object-rotation  (get-object  objnum)))) 
(effeet-object-force 
(•  force  (vertex-x  objdlr)) 

(•  force  (vertex-y  objdlr)) 

(•  force  (vertex-z  objdlr)) 

1.0 

objnum))) 

(defun  move-backward  (force  objnum) 

(let  ((objdlr  (object-rotation  (get-object  objnum)))) 
(effect-object-force 
(•  force  (-  (vertex-x  objdlr))) 

(•  force  (-  (vertex-y  objdlr))) 

(•  force  (vertex-z  objdlr)) 

1.0 

objnum))) 

Applies  the  given  torque  (angular  force)  to  object  for  one  time  unit. 
Note  that  torque  •  moment  *  angular  acceleration,  and  moment  Is 
proportional  to  mass. 

First,  find  the  current  direction  of  the  object.  Convert  Input 
magnitude  and  angle  (In  radians)  to  x.y.  Add  to  current  direction 
and  send  torque  command  to  master. 

(defun  turn-left  (objnum  magnitude  Aoptlonal  (angle  (/  pi  20))) 
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(lot*  ((object  (get-object  objnum)) 

(objdlr  (object-rotation  object)) 

(dir*  (vartex-x  objdlr)) 

(dlry  (vertex-y  objdlr)) 

(dlrz  (vertex-z  objdlr)) 

(addx  (•  (cos  angle)  magnitude)) 

(addy  (*  (sin  angla)  magnitude))) 

(affact-objact-torqua  (♦  dlrx  addx)  (♦  dlry  addy)  dlrz  1  objnum))) 

(dafun  turn-right  (objnum  magnltuda  ^optional  (angla  (/  pi  20))) 

(lot*  ((objact  (gat-objact  objnum)) 

(objdlr  (object-rotation  objact)) 

(dlrx  (vartax-x  objdlr)) 

(dlry  (vartex-y  objdlr)) 

(dlrz  (vertex-z  objdlr)) 

(addx  (*  (cos  (-  angle))  magnitude)) 

(addy  (•  (sin  (-  angle))  magnltuda))) 

(affact-objact-torqua  (♦  dlrx  addx)  (♦  dlry  addy)  dlrz  1  objrum))) 
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(check-filters  '.efllters  entity) 

(checfc-mungers  ’.fmungers  entity) 

(putprop  '.sname  '.stype  'tense-type) 

(putprop  ‘.sname  entity  'entity-type) 

(putprop  '.sname  filters  'filters) 

(putprop  '.sname  constraints  'constraints) 

(putprop  '.sname  ‘.fmungers  ‘fmungers) 

(putprop  '.sname  object  'sensorobj) 

(push  '.sname  (get  '.stype  'sensors)))) 

(defmecro  pp-sensor  (sname  (optional  (verbose  nil)) 

(cond  ((not  (get  sname  'entity-type)) 

(format  t  "-S  is  not  a  sensor,  sorry  bud.~X”  sname)) 

(t 

{format  t  "-S  sensor  ~S:  -X"  (get  enema  'sense-type)  sname) 
format  t  "Attached  to  object:  ~A~%"  (get  sname  'sensorobj)) 
(maybe-formatl  t  "Filters:  ~S~X"  (get  sname  'filters)) 
(maybe-formatl  t  "Constraints:  -S'-X"  (get  sname  ’constraints)) 
(maybe-formatl  t  "Field  mongers:  -SX"  (get  sname  ’fmungers)))) 


; ; ;  Only  format  the  single  value  If  it  Is  non-nil. 

(defun  maybe-formatl  (stream  control-string  value) 

(if  value 

(format  stream  control -string  value))) 

(defun  print-entities  (str  entitles  etype) 

(format  t  str) 

(dollst  (entity  entitles) 

(format  t  "  -A"  (entity-name  entity  etype)))) 

(defun  entity-name  (entity  etype) 

(ecase  etype 

(OBJECT  (object-name  entity)) 

(SOUND  (smash  "Sound  "  (emission-id  entity))) 

(SMELL  (smash  "Smell  "  (emission-id  entity))) 

(TASTE  (smash  "Taste  "  (list  (taste-sweet  entity)  (taste-sour  entity) 

(taste-bitter  entity)  (taste-salty  entity)))) 
(TOUCH  (smash  "Force  "  (epply-force  entity))))) 

:  Returns  the  specifications  of  constraints  In  the  fnames  list. 

(defun  get-constraints  (fnames) 

(let  (res) 

(dollst  (fname  fnames) 

(if  ( cons traintp  (get-name  fname)) 

(push  (eval-ergs  fname)  res))) 

(nreverse  res))) 


■i 


l 


(defun  get-filters  (fnames)  -*■ 

(let  (res)  IV 

(dollst  (fname  fnames)  <A 

(if  (fllterp  (get-neme  fname))  ‘.1 

(push  (eval-ergs  fname)  res)))  N 

(nreverse  res)))  -  ’ 


Checks  to  make  sure  that  each  of  the  names  in  fnames  Is  either  a  filter 
;;;  or  constraint,  end  for  every  one  that  Isn't,  tell  the  user. 

Also  each  one  must  be  a  filter  of  the  appropriate  entity  type. 

(defun  check-filters  (fnames  entity) 

(dollst  (fname  fnames) 

(let  ((real-fname  (get-neme  fname))) 

(cond  ((and  (not  (fllterp  real-fname)) 

(not  (constraintp  real-fname))) 

(format  t 

"X-S  Is  not  a  constraint  or  filter,  Def-sensor  will  Ignore  1t.~X" 
real-fname)) 

(t  (check -typebnumbur  fname  real-fname  entity)))))) 

(defun  check-mungers  (fnames  entity) 
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(dollst  (fname  fnames) 

(let  ((real-fname  (get-name  fname)}) 

(cond  ((not  (mungerp  real-fname)) 

(format  t 

”%~S  Is  not  a  monger,  Oef-sensor  will  Ignore  it.-X” 
real-fname)) 

(t  (check-type&number  fname  real-fname  entity)))))) 

;;;  PRECONDITION:  NAME  names  a  defined  filter,  constraint  or  f lei d-munger . 
(defun  check-type&number  (spec  name  entity) 

(cond 

((not  (eq  (get  name  ’entity-type)  entity)) 

(error  "~S  must  be  a  filter  for  entity  type  ~S  but  Is  not.~X" 
entity)) 

((not  («  (Qet  -num-params  spec) 

(get  name  ’num-params))) 

(error  "~S  must  be  given  ~S  params  but  was  only  given  -S.-X" 
name 

(get  name  ’num-params) 

(get  -num-params  spec))))) 

;;;  Since  filter  names,  constraint  names  and  object  names  may  be  lists  with 
additional  parameters. 

(defun  get-name  (fname) 

(If  (atom  fname) 
fname 

(car  fname))) 

(defun  get-num-params  (fname) 

(If  (atom  fname) 

0 

(length  (cdr  fname)))) 

;;;  If  fname  has  arguments,  then  replace  each  argument  by  that  argument 
evaluated.  For  example.  If  the  user  gives  a  (cos  (/  pi  4))  arg  to  a 
; : ;  filter  fn  by  writing  (my-fllter  (cos  theta)),  this  fn  would  change  that 
; ; ;  to  (my-fllter  0.7071067)  and  return  it. 

(defun  eval-args  (fname) 

(If  (atom  fname) 
fname 

(do  ((args  (cdr  fname)  (cdr  args))) 

((null  args)  fname) 

(rplaca  args  (aval  (car  args))}))) 

(defun  constralntp  (name) 

(get  name  ’constraint)) 

(defun  fllterp  (name) 

(get  name  ’filter)) 

(defun  mungerp  (name) 

(get  name  'munger)) 

(defmacro  def-fllter  (name  params  sense-type  &rest  body) 

(when  (or  (get  name  ’constraint) 

(get  name  ’munger)) 

(cerror  "Re-deflne  It  as  a  filter" 

"«S  la  already  defined  as  a  constraint  or  munger."  name) 
(putprop  name  nil  ’constraint) 

(putprop  name  nil  ’munger)) 

(let  ((entity  (aense-to-entlty  sense-type))) 

V140(progn 

(format  t  "Defining  filter  -S-X"  ’.name) 

(putprop  '.name  ‘.entity  ’entity-type) 

(putprop  ’.name  t  ’filter) 

(putprop  ’.name  .(length  params)  ’num-params) 

(defun  .name  (entities  sensorobj  .Nparums) 

.•body)))) 
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(dafmacro  def- constraint  (name  params  sense-t ype  &rest  body) 
(when  (op  (got  name  'filter) 

(get  name  ‘Hunger)) 

feerror  "Re-deflne  It  as  a  constraint" 

«_S  Is  already  defined  as  a  filter  or  sungar.  name) 
(putprop  name  nil  ’filter) 

(putprop  name  nil  'munger)) 

(let  ((entity  (sense-to-entlty  sense-type))) 

\140(progn 

(format  t  "Oeflnlng  constraint  -S-X  '.name) 

(putprop  '.name  ’.entity  ’entity-type) 

(putprop  ’.name  t  ‘constraint) 

(putprop  '.name  .(length  params)  ’num-params) 

(defun  .name  (entity  sensorobj  .•params) 

.•body)))) 


When  the  given  field  Is  accessed  for  the  given  type  of  entity, 
pre-process  the  value  with  the  code  in  <body>. 

(Cefmacro  def-f leld-munger  (name  params  sense-type  field  *rest  body) 
(when  (or  (get  name  ’filter) 

(get  name  ’constraint)) 

(cerror  "Re-deflne  It  as  a  munger" 

*~S  Is  already  defined  as  a  filter  or  constraint."  name) 
(putprop  name  nil  ‘filter) 

(putprop  name  nil  ‘constraint)) 

(let  ((entity  (sense-to-entlty  sense-type))) 


\140(progn 

(format  t  "Oeflnlng  munger  ~S-X"  ’.name) 
(putprop  '.name  '.field  'field) 

(putprop  '.name  '.entity  ’entity-type) 
(putprop  '.name  t  ’monger) 

(putprop  '.name  .(length  params)  'num-params) 
(defun  .name  (field)  .•params) 

.•body))) 
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The  blggee. 

For  now,  fields  are  munged  only  after  the  filters  are  executed.  This 
;;;  nakes  things  Much  easier. 

;;;  Algorithm: 

(1)  get  initial  list. 

(2)  take  out  those  entitles  which  don't  meet  all  the  constraints. 

:::  (3)  pass  the  entitles  list  through  all  the  filters. 

;;;  (4)  Munge  the  appropriate  fields 
:::  (5)  return  the  result. 

(defun  sense  (snarae) 

(let  ((etype  (get  sname  'entity-type))) 

(if  (null  etype) 

(error  "Sorry,  ~S  Is  not  a  tensor  defined  by  def-sensor .-X"  sname)) 
(ecase  etype 

(OBJECT  (format  t  "Looking...-*")) 

(SOUND  (format  t  "Listening...-*”)) 

(SMELL  (format  t  "Sniffing...-*")) 

(TASTE  ( format  t  "Tasting...-*)) 

(CONTACT  (format  t  "Feeling...-*))) 

(let  ((entitles  (make-lnltlal-entlty-llst  etype)) 

(sensorobj  (get-object-named  (get  aname  'sensorobj)))) 

(If  "TRACE-SENSE"  (print-entities  "Initial  list  Is:  "  entitles  etype)) 
(when  (null  entitles) 

(cerror  "Send  It  through  the  filters  anyway. -X" 

"Sensor  -S  sensed  nothing.-*"  sname)) 

(setq  entitles  (constraln-entltles  entitles  sname  sensorobj)) 

(setq  entitles  (filter-entities  entitles  sname  sensorobj)) 

(munge-f lelds  entitles  sname) 
entitles))) 

;;;  For  every  filter  In  the  filter  list  associated  with  the  given  sensorobj, 
pass  the  entitles  list  through  it. 

(defun  filter-entities  (entitles  sname  sensorobj) 

(let  ((fname  nil) 

(fparams  nil) 

(etype  (get  sname  ’entity-type))) 

(dollst  (filter  (get  sname  'filters)) 

(cond  ((atom  filter) 

(setq  fname  filter  fparams  nil)) 

(t  (setq  fname  (car  filter)  fparams  (cdr  filter)))) 

(when  "TRACE-SENSE" 

(format  t  "Calling  filter  -S"  fname) 

(If  fparams 

(format  t  "  with  arguments  ~S.~*"  fparams) 
format  t  ".-*"))) 

(setq  entitles  (apply  fname  \140( .entitles  .sensorobj  , •fparams))) 

(If  "TRACE-SENSE"  (print-entities  "List  Is  now:  "  entitles  etype)))) 
entitles) 

For  each  entity  In  the  entitles  list.  It  must  meet  all  the  constraints 
;;;  associated  with  the  sensor  sname  to  stay  In  the  result. 

(defun  constraln-entltles  (entitles  sname  sensorobj) 

(let  ((cname  nil) 

(cparams  nil) 

(etype  (get  sname  'entity-type))) 

(dollst  (constraint  (get  sname  'constraints)) 

(cond  ((atom  constraint) 

(setq  cname  constraint  cparams  nil)) 

(t  (setq  cname  (car  constraint)  cparams  (cdr  constraint)))) 

(when  "TRACE-SENSE" 

{format  t  "Calling  constraint  -S"  cname) 

(If  cparams 

(format  t  "  with  arguments  -S.-*”  cparams) 

(format  t  ".-*"))) 

(let  ((rem-params  (cons  sensorobj  cparams))) 

(do  ((entity  entities  (cdr  entity)) 

(laste  nil  entitles)) 

((null  entity)  entitles) 


/  .v'.v'W  s! 
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(cond  ((not  (apply  cname  (cons  (car  entity)  rem-params ) ) )  constrained 
(if  ‘TRACE-SENSE* 

(format  t  "Entity  ~S  gets  constrained. -X" 

(entity-name  (car  entity)  etype))) 

(If  (null  laste) 

(setq  entitles  (cdr  entitles)) 

(setf  (cdr  lasts)  (cdr  entity)))))))) 

(If  ‘TRACE-SENSE*  (print-entities  "List  Is  now:  "  entitles  etype)) 
entitles)) 

;;;  Won't  work  for  ell  field  types  since  LIspSEI  doesn't  provide  setting 
;;;  functions  for  ell  field  types. 

(defun  munge-flelds  (entitles  sname) 

(let  ((mname  nil) 

(mparams  nil) 

etype  (get  sname  'entity-type))) 

(dollst  (munger  (get  sname  ’fmungers)) 

(cond  ((atom  munger) 

(setq  mname  munger  mparams  nil)) 

(t  (setq  mname  (car  munger)  mparams  (cadr  munger)))) 

(let  ((field  (get  mname  ‘field))} 

(when  ‘TRACE-SENSE* 

(format  t  "Munglng  field  -S  with  ~S”  field  mname) 

(If  mparams 

(format  t  ”  with  arguments  -S.-X"  mparams) 

(format  t  ".-X"))) 

(dollst  (entity  entitles) 

(set-field  etype  field  entity 

(funcall  mname  (cons  (get-flald  mname  field)  mparams)))))))) 

(defun  make-lnltlal-entlty-llst  (etype) 

(ecase  etype 

(OBJECT  (make-object-1 1st)) 

(SOUND  (make-sound-1 1st)) 

(SMELL  (make-smell-1 1st)) 

(TASTE  (make-taste-1 1st ) ) 

(CONTACT  (make-feel-llst)))) 

Make  and  return  a  list  containing  all  the  objects  in  the  world. 

(defun  make-object-1 1st  () 

(make-object-1 IstO  (object-head))) 

(defun  make-object-1 IstO  (objnum) 

(If  (not  (zerop  objnum)) 

(do*  ((topobj  objnum  (object-next-object  object)) 

(object  (get-object  topobj)  (get-object  topobj)) 

(res  (cons  object  (make-object-l IstO 

(ob ject-composed-of  object))) 

(cons  object  (nconc  (make-object-l IstO 

(ob ject-composed-of  object))  res)))) 

((zerop  (object-next-object  object))  res)))) 

(defun  make-feel-llst  () 

(contacts)) 

Make  and  return  a  list  containing  all  the  emissions  of  type  sound  In  the  world, 
(defun  aake-sound-1 1st  () 

(do  ((emltnum  (emission-head)  (get-emlsslon-next  amiss  Ion)) 

(emission  nil  (emission  emltnum)) 

(res  nil  (If  (soundp  emission) 

(cons  emission  res) 
res))) 

((null  emltnum)  res))) 

(defun  make-smell -list  () 

(do  ((emltnum  (emission-head)  (get-emlsslon-next  emission)) 

(emission  nil  (emission  emltnum)) 

(res  nil  (if  (smellp  emission) 

(cons  emission  res) 
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res))) 

((null  emltnum)  res))) 

(defun  soundp  (emission) 

(»  (get-emlsslon-emlsslon-type  emission)  *SOUND-TYPE*)) 

(defun  smellp  (emission) 

(■  (get-emlsslon-emlsslon-type  emission)  •SMELL-TYPE*)) 

Just  like  make-object-list  except  returns  the  taste  fields  Instead  of 
; ; ;  the  whole  objects . 

(defun  make-taste-list  () 

(make-object-1  Is to  ( object- head) )) 

(defun  make-taste-1 IstO  (objnum) 

(If  (not  (zerop  objnum)) 

(do*  ((topobj  objnum  (ob ject-naxt-ob ject  object)) 

(object  (get-object  topobj)  (get-object  topobj)) 

(res  (list  object) 

(cons  (object-taste  object) 

(nconc  (make-objeet-1 IstO 

(object-compesed-of  object))  res)))) 
((zerop  topobj)  res)))) 

Return  a  list  containing  all  the  lists  of  entitles  slnsed  by  each 
;;;  sensor  of  the  FEEL  type. 

(defun  feel  () 

(get-all-sensory-input  'touch)) 

(defun  hear  () 

(get-all- sensory- Input  ’hearing)) 

(defun  taste  () 

(get-all-sensory-lnput  'taste)) 

(derun  smell  () 

(get-el l-sensory-1nput  'smell)) 

(defun  see  () 

(get-all-sensory-lnput  'vision)) 

(defun  get-all-sensory-lnput  (sense) 

(mapcar  *’(lambda  (sensor) 

(sense  sensor))  ^ 

(get  sense  'sensors))) 


